home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh8x / sh81b.d64 / f+m speed test (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  817 b   |  41 lines
  1. 100 REM   SPEED TEST DEMO
  2. 105 REM
  3. 110 PRINT"[147]"(null)(12,5)"F+M  MANAGER"
  4. 120 PRINT(null)(11,6)"[192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  5. 130 PRINT(null)(13,8)"SPEED TEST"
  6. 140 PRINT"BITTE LEGEN SIE EINE LEERE DISKETTE EIN";
  7. 150 (null) A$
  8. 160 PRINT"[145]                                        "
  9. 170 (null)"S:TEST-DATEI,TEST-DATEI+"
  10. 180 PRINT(null)(6,10)"ANZAHL DER DATENSAETZE : ";
  11. 190 (null) 4,A
  12. 200 (null)"I"
  13. 210 GOSUB460
  14. 220 PRINT(null)(12,13)"> CREATING..."
  15. 230 (null)"TEST-DATEI",5,12,10,14,16,18,A
  16. 240 GOSUB460
  17. 250 :
  18. 260 PRINT(null)(12,13)"> WRITING... "
  19. 270 PRINT(null)(12,20)"DATENSATZ#"
  20. 280 (null)"TEST-DATEI"
  21. 290 GOSUB460
  22. 300 FORI=1TOA
  23. 310 (null)I,1,"RECORD#"+STR$(I)
  24. 320 PRINT(null)(22,20)I
  25. 330 NEXT
  26. 340 PRINT(null)(12,13)"   TASTE [146]!  [157][157][157]";
  27. 350 (null) A$
  28. 360 :
  29. 370 PRINT(null)(12,13)"> READING... "
  30. 380 PRINT(null)(6,20)"FELD-INHALT: '            '"
  31. 390 FORI=1TOA
  32. 400 (null)I,1,A$
  33. 410 PRINT(null)(20,20)A$
  34. 420 NEXT
  35. 430 (null)
  36. 440 GOSUB460
  37. 450 END
  38. 460 PRINT(null)(0,15)"                                       "
  39. 470 PRINT(null)(19-LEN(DS$)/2,15)DS$
  40. 480 RETURN
  41.